gdead.berkeley.edu/gdead.berkeley.edu.tar/gdead.berkeley.edu/pub/gdead/mac/stack-o-dead-1.8/stack-o-dead-1.8.2.sit.hqx/Dead Stats/background_2721.xml

Extensible Markup Language | 1991-02-28 | 31KB | 820 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2721</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2492.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_8385.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>402</left>
            <top>86</top>
            <right>498</right>
            <bottom>104</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Show List</name>
        <script>--  This button displays the list of shows for the given--  year, including show date, number of songs, and the location----Option Key----  The option key causes the contents of the show list to be rebuilt--  This involves re-scanning the Dead Shows stack.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screenput 0 into totSongsput 0 into totForAvg--set the hilite of bg button "Song List" to falseif the optionKey is down thenput empty into theListput 0 into showCountpush this cardput  Trim( field "Year" ) into tmpput tmp - 1900 into theYearput "finding first show in " & theYearset the cursor to watchgo stack "Dead Shows"goFirstCardOfYear theYearput "Building list..."put the id of this card into firstIDrepeat forevershowBusyput field "total songs" into totput Trim( field "date" ) & tab & "(" & tot & ")  " &¬field "location" & return after theListadd 1 to showCountif tot > 4 thenadd 1 to totForAvgadd tot to totSongsend ifshowBusygo next cardif piece( field "date", "/", 3 )  is not theYear then exit repeatshowBusyend repeatpop cardput theList into field "Show List"put ExpandTabs( theList, 10 ) into field "Show List"put showCount & " shows..." into field "Show Title"put showCount into field "Total Shows"put totSongs into field "Total Songs"if totForAvg > 0 thenput totSongs / totForAvg into avgelseput 0 into avgend ifput ( round( avg * 100 ) / 100 ) into field "Average"hide messageend ifmakeCurrent "Show"unlock screen with visual effect dissolve fastend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>56</left>
            <top>22</top>
            <right>106</right>
            <bottom>39</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Year</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>41</top>
            <right>231</right>
            <bottom>59</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Show Title</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>60</top>
            <right>390</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Show List</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>409</left>
            <top>32</top>
            <right>468</right>
            <bottom>54</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>14</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>Current List</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>402</left>
            <top>106</top>
            <right>499</right>
            <bottom>124</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Song List</name>
        <script>--  This button displays the list of songs for the given--  year, ordered by descending frequency including the number--  of times played, and the song title----Option Key----  The option key causes the contents of the songs list to be rebuilt--  This involves sorting the Songs stack by descending frequency--  for the year, building the list, and then re-sorting the songs--  stack by title before returning.  Songs not played are not--  displayed.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screen-- set the hilite of the target to true-- set the hilite of bg button "Show List" to falseif the optionKey is down thenput  Trim( field "Year" ) into theYearbuildSongList theYear, trueend ifmakeCurrent "Song"hide messageunlock screen with visual effect dissolve fastend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>60</top>
            <right>390</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Song List</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>42</top>
            <right>224</right>
            <bottom>60</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Song Title</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>417</left>
            <top>216</top>
            <right>479</right>
            <bottom>239</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Print...</name>
        <script>--  This button will send the contents of the currently displayed--  list (either Shows or Songs) to the printer with some header--  information.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put field "Title" into theTitleput field "Current List" into theNameopen file saveFileput field "Year" & " : " & field (theName && "Title" ) & return¬& "----------" & return & field (theName && "List" ) into field "temp"PrintField card, "temp", "Geneva", 10, 13put empty into field "temp"end mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>417</left>
            <top>242</top>
            <right>479</right>
            <bottom>265</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Save...</name>
        <script>--  This button will save the contents of the currently displayed--  list (either Shows or Songs) to a file with some header--  information.  It will ask for the name of the file.on mouseUpglobal deadDirif the commandKey is down thendoHelpexit mouseUpend if--ask "Save to File..." with deadDirput it into saveFileput field "Current List" into theNameif saveFile is not empty thenopen file saveFilewrite  field "Year" & " : " & field (theName && "Title" ) &¬return & "---------------" & return & field (theName && "List" ) ¬to file saveFileclose file saveFileend ifend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>481</left>
            <top>26</top>
            <right>505</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>temp</name>
        <script></script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>395</left>
            <top>317</top>
            <right>420</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20689</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>-- This card sends you to the Home stackon mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screengo stack "Dead Utility"playDeadSong "Franklins"go "Home"unlock screen with visual effect iris closeend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>448</left>
            <top>313</top>
            <right>473</right>
            <bottom>338</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>--  This button will send you to the next card.on mouseDownif the optionKey is down thenshow all cardsexit mouseDownend if--go next cardend mouseDownon mouseStillDowngo next cardend mouseStillDown</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>423</left>
            <top>313</top>
            <right>448</right>
            <bottom>338</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>--  This button will send you to the previous card.on mouseDownif the optionKey is down thenshow all cardsexit mouseDownend if--go prev cardend mouseDownon mouseStillDowngo prev cardend mouseStillDown</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>417</left>
            <top>191</top>
            <right>479</right>
            <bottom>213</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New</name>
        <script>--  This button will create a new Year Stats card--  It will first ask for the year to be entered, and then--  set up a new card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--ask "Create new card for what year..."if it is empty then exit mouseUpput it into theYeardoMenu "New Card"put theYear into field "year"--type tabend mouseUp</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>480</left>
            <top>314</top>
            <right>500</right>
            <bottom>336</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26635</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>--This stack provides some statistical functions about the Grateful--Dead gathered from the Shows and Songs stacks.  It is only as--accurate as they are.----To view any of the stat lists for a given year, just click the--appropriate button.  In order to (re)generate the list, click--the appropriate button with the option key down.----This stack is quite new, and as yet has more to be done.  I am--sending it out now as the first few lists are commonly reffered--to (by me anyway) and I thought this much would be useful.----Please let me know of anything more you would like to see in--the way of statistics.on mouseUpif the visible of field "Help" is true thenclick at the loc of field "Help"elsedoHelpend ifend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>420</left>
            <top>25</top>
            <right>475</right>
            <bottom>81</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>hey now</name>
        <script>--  This button plays a random dead tuneon mouseUpif the commandKey is down thendoHelpexit mouseUpend ifplayRandomDeadend mouseUp</script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>124</left>
            <top>22</top>
            <right>164</right>
            <bottom>39</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Total Shows</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>239</left>
            <top>22</top>
            <right>290</right>
            <bottom>40</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Total Songs</name>
        <script></script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>239</left>
            <top>40</top>
            <right>290</right>
            <bottom>58</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Average</name>
        <script>on mouseUpput field "Total Songs" / field "Total Shows" into avgput ( round( avg * 100 ) / 100 ) into meend mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>411</left>
            <top>275</top>
            <right>486</right>
            <bottom>299</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>= Stacks =</name>
        <script>--  This button will present a pop-up menu of stack names.--  Hold the mouse button down for a few seconds until--  the menu appears.  Select one of the choices to--  go to that stack.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--global stackLastput true into useLastif the optionKey is down then put false into useLastif stackLast is empty thenput "1,1,1,1,1,1" into stackListput the rect of me into thePtif item 2 of thePt > 230 then put 230 into item 2 of thePtput "Shows;Songs;Tapes;Labels;Utility" into listput popUp( thePt, list ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( list, ";", choice ) into theStackif theStack is not "Songs" then put "Dead " before theStackgo stack theStackend ifend ifend mouseDown</script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>402</left>
            <top>126</top>
            <right>499</right>
            <bottom>144</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Top Ten List</name>
        <script>--  This button displays the list of songs for the given--  year, ordered by descending frequency including the number--  of times played, and the song title----Option Key----  The option key causes the contents of the songs list to be rebuilt--  This involves sorting the Songs stack by descending frequency for--  the year, building the list, and then re-sorting the songs stack--  by title before returning.  Songs not played are not displayed.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screenput 0 into totSongs--set the hilite of the target to true--set the hilite of bg button "Show List" to false--set the hilite of bg button "Song List" to falseif the optionKey is down thenput empty into theListput 0 into songCountpush this cardput  Trim( field "Year" ) into theYearput "c" & theYear into sortFieldgo stack "Songs"put "Sorting songs by frequency played for in " & theYear & "..."set the cursor to watchsort descending numeric by field sortField--put "Building list..."repeat for 10put field sortField into countif count < 1 then exit repeatshowBusyput "(" & count & ")  " & field "title" & return after theListadd count to totSongsadd 1 to songCountshowBusygo next cardend repeatput "Re-sorting..."set the cursor to watchsort by field "title"pop cardput theList into field "Song List"-- put ExpandTabs( theList, 11 ) into field "Show List"put songCount & " different songs..." into field "Song Title"put totSongs into field "Total Songs"end ifmakeCurrent "Top Ten"hide messageunlock screen with visual effect dissolve fastend mouseUp</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>60</top>
            <right>390</right>
            <bottom>334</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Top Ten List</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>12</left>
            <top>41</top>
            <right>231</right>
            <bottom>59</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Top Ten Title</name>
        <script></script>
    </part>
    <part>
        <id>24</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>30</left>
            <top>103</top>
            <right>449</right>
            <bottom>318</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>help text</name>
        <script>on mouseUplock screenhide meunlock screen with visual effect dissolve fastend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text>Song</text>
    </content>
    <content>
        <layer>background</layer>
        <id>24</id>
        <text>Help for bkgnd button "Song List"...  This button displays the list of songs for the given  year, ordered by descending frequency including the number  of times played, and the song titleOption Key  The option key causes the contents of the songs list to be rebuilt  This involves sorting the Songs stack by descending frequency  for the year, building the list, and then re-sorting the songs  stack by title before returning.  Songs not played are not  displayed.</text>
    </content>
    <name></name>
    <script>on allYearSongListput "19" & piece( the date, "/", 3 ) into thisYearput thisYearpush this cardlock screenrepeat with year = 1965 to thisYearfind year in field "Year"if the result is empty then    -- found it...buildSongList year, trueend ifend repeatpop cardunlock screenend allYearSongListon buildSongList theYear, reSortput empty into theListput 0 into songCountput 0 into totSongspush this cardput "c" & theYear into sortFieldgo stack "Songs"put "Sorting songs by frequency played for in " & theYear & "..."set the cursor to watchsort descending numeric by field sortField--put "Building list..."repeat for the number of cardsput field sortField into countif count < 1 then exit repeatshowBusyput "(" & count & ")  " & field "title" & return after theListadd count to totSongsadd 1 to songCountshowBusygo next cardend repeatif reSort is true thenput "Re-sorting..."set the cursor to watchsort by field "title"end ifpop cardput theList into field "Song List"-- put ExpandTabs( theList, 11 ) into field "Show List"put songCount & " different songs..." into field "Song Title"put totSongs into field "Total Songs"end buildSongList</script>
</background>